home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / button12.lha / tshirt.morin.ps < prev   
Text File  |  1993-08-05  |  1KB  |  58 lines
  1. %
  2. % gts.ps - GNU t-shirt design
  3. %
  4. % This program may be freely redistributed under
  5. % the terms of the GNU General Public License.
  6. %
  7. % Copyright 1988 Free Software Foundation
  8. %
  9. % Uses {in,out}sidecircletext routines from Adobe Cookbook.
  10.  
  11. .so circtext.ps
  12.  
  13. /inch { 72 mul } def
  14.  
  15. /cshow {
  16.   text stringwidth pop 2 div neg points 3 div neg moveto
  17.   text show
  18. } def
  19.  
  20. /radius 3.5 inch def
  21. 4.25 inch 5.5 inch translate
  22.  
  23. gsave
  24.   /text (UNIX) def
  25.   /points 150 def
  26.   /Times-Bold findfont points scalefont setfont
  27.   cshow
  28. grestore
  29.  
  30. /points 27 def
  31. /Times-Roman findfont points scalefont setfont
  32.  
  33. gsave
  34.   points 1.5 mul setlinewidth
  35.   newpath
  36.     0 0 radius points 3 div add 0 360 arc
  37.   stroke
  38.   45 rotate
  39.   newpath
  40.     radius neg 0 moveto
  41.     radius 0 lineto
  42.   stroke
  43.   1 setgray
  44.   /text (GNU's Not Unix) def
  45.   cshow
  46. grestore
  47.  
  48. 1 setgray
  49.  
  50. (This t-shirt design may be freely redistributed\
  51.  under the terms of the GNU General Public License.)
  52.   points 90 radius outsidecircletext
  53.  
  54. (Copyright 1988 Free Software Foundation)
  55.   points 270 radius points 2 div add insidecircletext
  56.  
  57. 1 { copypage } repeat
  58.